home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / applications / wp / ged11.lha / Install / data / main / GoldED / ARexx / switch.ged < prev    next >
Text File  |  1993-10-01  |  2KB  |  71 lines
  1. /* $VER: 0.9, ©1993 Dietmar Eilert. Insert switch block.               */
  2.  
  3. OPTIONS RESULTS                             /* enable return codes     */
  4.  
  5. arg doComment                               /* set to TRUE for header  */
  6.  
  7. OPTIONS RESULTS                             /* enable return codes     */
  8.  
  9. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  10.     address 'GOLDED.1'
  11.  
  12. 'LOCK CURRENT'                              /* lock GUI, gain access   */
  13. OPTIONS FAILAT 6                            /* ignore warnings         */
  14. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  15.  
  16. /* ------------------------- INSERT YOUR CODE HERE: ------------------ */
  17.  
  18. 'QUERY CAT'
  19. GERMAN = (RESULT = "deutsch")
  20.  
  21. if (GERMAN) then do
  22.  
  23.     ASKEXPR = "switch-Bedingung - z.B. (code)"
  24.     ASKHEAD = "case-Ausdruck - z.B. 'A':"
  25. end
  26. else do
  27.  
  28.     ASKEXPR = "switch expression - e.g. (code)"
  29.     ASKHEAD = "case expression - e.g. 'A':"
  30. end
  31.  
  32. 'REQUEST TITLE "' || ASKEXPR || '" OLD="()" STRING VAR SWITCH'
  33.  
  34. if (RC = 0) then do
  35.  
  36.     'INSERT LINE'
  37.     'TEXT STAY T="switch ' || SWITCH || ' {"'
  38.     'DOWN'
  39.     'INSERT LINE'
  40.     'TEXT STAY T="}"'
  41.     'INSERT LINE'
  42.     'DOWN'
  43.     'INSERT LINE'
  44.     'TAB'
  45.  
  46.     'REQUEST TITLE "' || ASKHEAD || '" OLD=":" STRING VAR CASE'
  47.  
  48.     if (RC = 0) then do
  49.  
  50.         'TEXT STAY T="case '  || CASE '"'
  51.         'DOWN'
  52.         'INSERT LINE'
  53.         'TAB'
  54.         'TEXT STAY T="break;"'
  55.         'INSERT LINE'
  56.         'INSERT LINE'
  57.         'DOWN'
  58.     end
  59. end
  60.  
  61. /* ---------------------------- END OF YOUR CODE ----------------------- */
  62.  
  63. 'UNLOCK' /* VERY important: unlock GUI */
  64. EXIT
  65.  
  66. SYNTAX:
  67.  
  68. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  69. 'UNLOCK'
  70. EXIT
  71.